home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / P / PerpetCalendar.cpt / Calendar / card_5150.txt < prev    next >
Encoding:
Text File  |  1989-10-16  |  4.8 KB  |  234 lines
  1. -- card: 5150 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2707
  5. -- name: display
  6. ----- HyperTalk script -----
  7. --contains hidden field launch
  8.  
  9.  
  10. -- part 3 (field)
  11. -- low flags: 81
  12. -- high flags: 0004
  13. -- rect: left=87 top=249 right=319 bottom=397
  14. -- title width / last selected line: 0
  15. -- icon id / first selected line: 0 / 0
  16. -- text alignment: 0
  17. -- font id: 0
  18. -- text size: 12
  19. -- style flags: 16384
  20. -- line height: 16
  21. -- part name: chgAlert
  22.  
  23.  
  24. -- part 6 (button)
  25. -- low flags: 00
  26. -- high flags: 8003
  27. -- rect: left=358 top=76 right=100 bottom=414
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: OK
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   visual dissolve slow
  39.   do field launch
  40. end mouseUp
  41.  
  42.  
  43.  
  44. -- part 7 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=368 top=169 right=199 bottom=401
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: events
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   set lockscreen to true
  59.   if visible of field specials = true then
  60.     alt
  61.     exit mouseUp
  62.   end if
  63.   put field month into monthName
  64.   push card
  65.   go to card events
  66.   put card field monthName into storage
  67.   pop card
  68.   put storage into field specials
  69.   show field specials
  70.   if visible of field spclhedr = false then
  71.     show field spclhedr
  72.     show field evnt
  73.     show card field chgAlert
  74.     set lockscreen to false
  75.     put 1 into timer
  76.     repeat until timer = 12
  77.       wait 1 seconds
  78.       add 1 to timer
  79.       if the mouseClick then exit repeat
  80.     end repeat
  81.     hide card field chgAlert
  82.   end if
  83.   show field evnt
  84.   set lockscreen to false
  85. end mouseUp
  86.  
  87. on alt
  88.   put field specials into storage
  89.   put field month into monthName
  90.   if visible of field bday = true then
  91.     push card
  92.     go to card birthdays
  93.     put storage into card field monthName
  94.     pop card
  95.     hide field bday
  96.     hide field specials
  97.     send mouseUp to button events
  98.     exit alt
  99.   end if
  100.   push card
  101.   go to card events
  102.   put storage into card field monthName
  103.   pop card
  104.   hide field specials
  105.   hide field spclhedr
  106.   hide field evnt
  107.   set lockScreen to false
  108. end alt
  109.  
  110.  
  111.  
  112. -- part 8 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=363 top=204 right=251 bottom=407
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: birthdays
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set lockscreen to true
  127.   if visible of field specials = true then
  128.     alt
  129.     exit mouseUp
  130.   end if
  131.   put field month into monthName
  132.   push card
  133.   go to card birthdays
  134.   put card field monthName into storage
  135.   pop card
  136.   put storage into field specials
  137.   show field specials
  138.   if visible of field spclhedr = false then
  139.     show field spclhedr
  140.     show field bday
  141.     show card field chgAlert
  142.     set lockscreen to false
  143.     put 1 into timer
  144.     repeat until timer = 12
  145.       wait 1 seconds
  146.       add 1 to timer
  147.       if the mouseClick then exit repeat
  148.     end repeat
  149.     hide card field chgAlert
  150.   end if
  151.   show field bday
  152. end mouseUp
  153.  
  154. on alt
  155.   put field specials into storage
  156.   put field month into monthName
  157.   if visible of field evnt = true then
  158.     push card
  159.     go to card events
  160.     put storage into card field monthName
  161.     pop card
  162.     hide field evnt
  163.     hide field specials
  164.     send mouseUp to button birthdays
  165.     exit alt
  166.   end if
  167.   push card
  168.   go to card birthdays
  169.   put storage into card field monthName
  170.   pop card
  171.   hide field specials
  172.   hide field spclhedr
  173.   hide field bday
  174.   set lockScreen to false
  175. end alt
  176.  
  177.  
  178.  
  179. -- part contents for background part 1
  180. ----- text -----
  181.   1       2       3       4      5       6       7
  182.   8       9     10     11    12    13     14
  183.  15    16    17     18    19     20    21
  184.  22    23    24     25    26     27    28
  185.  29    30    31
  186.  
  187. -- part contents for background part 4
  188. ----- text -----
  189. October
  190.  
  191. -- part contents for background part 5
  192. ----- text -----
  193. 1989
  194.  
  195. -- part contents for background part 2
  196. ----- text -----
  197.   S     M     T     W     T      F      S
  198.  
  199. -- part contents for background part 14
  200. ----- text -----
  201. go card id 13030 of stack "Calendars"
  202.  
  203. -- part contents for card part 3
  204. ----- text -----
  205. To add or delete special dates, click on the finger or cake button as needed after making your changes.  The "OK" button does not save changes.
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215. -- part contents for background part 17
  216. ----- text -----
  217. SPECIAL DATES
  218.  
  219. -- part contents for background part 18
  220. ----- text -----
  221. BIRTHDAYS
  222.  
  223. -- part contents for background part 19
  224. ----- text -----
  225. EVENTS
  226.  
  227.  
  228. -- part contents for background part 22
  229. ----- text -----
  230. go card id 13030 of stack "Calendar"
  231.  
  232. -- part contents for background part 9
  233. ----- text -----
  234. None